home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok33.lha / ImageConvert / BrushData.mod < prev    next >
Text File  |  1993-08-15  |  5KB  |  102 lines
  1. IMPLEMENTATION MODULE BrushData;
  2.  
  3. FROM SYSTEM   IMPORT ADR, INLINE;
  4.  
  5. (* $E- *)
  6. PROCEDURE GadgetDat;
  7.  
  8. BEGIN
  9.    (* Plane 1 *)
  10.    INLINE (00000H, 02000H, 00000H, 00000H, 0F800H, 007FFH, 00003H, 0FE00H);
  11.    INLINE (007FFH, 00007H, 0FF00H, 007FFH, 0000FH, 0FF80H, 007FFH, 0000FH);
  12.    INLINE (0FF80H, 007FFH, 0000FH, 0FF80H, 007FFH, 0000FH, 0FF80H, 007FFH);
  13.    INLINE (0000FH, 0FF80H, 007FFH, 0000FH, 0FF80H, 007FFH, 0000FH, 0FF80H);
  14.    INLINE (007FFH, 0001FH, 0FFC0H, 007FFH, 0003FH, 0FFE0H, 007FFH, 0007FH);
  15.    INLINE (0FFF0H, 00627H, 000FFH, 0FFF8H, 00739H, 0000EH, 05C80H, 00313H);
  16.    INLINE (0000FH, 09F00H, 00793H, 00007H, 00E00H, 00333H, 00000H, 08800H);
  17.    INLINE (007C7H, 00001H, 00800H, 0033FH, 00001H, 00800H, 00001H, 00001H);
  18.    INLINE (00C00H, 001D0H, 00001H, 00400H, 00739H, 00001H, 00400H, 007FFH);
  19.    INLINE (00001H, 00400H, 007FFH, 00001H, 00400H, 007FFH, 00001H, 08400H);
  20.    INLINE (007FFH, 00000H, 08800H, 007FFH, 00000H, 08800H, 007FFH, 00000H);
  21.    INLINE (07000H, 007FFH, 00020H, 00020H, 007FFH, 00020H, 00020H, 007FFH);
  22.    INLINE (00020H, 00020H, 007FFH, 00021H, 00420H, 00627H, 00020H, 08820H);
  23.    INLINE (00733H, 00010H, 07040H, 00313H, 00010H, 00040H, 00733H, 00010H);
  24.    INLINE (0F040H, 00333H, 00008H, 00080H, 00733H, 00008H, 00080H, 0073FH);
  25.    INLINE (00004H, 00100H, 00787H, 00005H, 00500H, 0061FH, 00002H, 00200H);
  26.    INLINE (007CFH, 00002H, 00200H, 007FFH, 00002H, 00200H, 0071FH, 00002H);
  27.    INLINE (00200H, 007FFH, 00001H, 00400H, 007FFH, 00000H, 0F800H, 007FFH);
  28.    (* Plane 2 *)
  29.    INLINE (00000H, 02000H, 007FFH, 00000H, 0F800H, 007FFH, 00003H, 02600H);
  30.    INLINE (007FFH, 00004H, 02100H, 007FFH, 00008H, 02080H, 00000H, 00008H);
  31.    INLINE (00080H, 007FFH, 00008H, 00080H, 00000H, 0000FH, 0FF80H, 007FFH);
  32.    INLINE (00008H, 00080H, 007FFH, 00008H, 00080H, 007FFH, 0000FH, 0FF80H);
  33.    INLINE (007FFH, 00010H, 00040H, 007FFH, 00020H, 00020H, 007FFH, 00040H);
  34.    INLINE (0F810H, 00000H, 000FFH, 0FFF8H, 00000H, 001F6H, 00C7CH, 005B0H);
  35.    INLINE (009F7H, 00EFCH, 08000H, 00FF8H, 001FFH, 08000H, 01FFFH, 007FFH);
  36.    INLINE (0C000H, 00FFEH, 007FFH, 08000H, 0FFFEH, 007FFH, 0F800H, 07FFEH);
  37.    INLINE (003FFH, 0F000H, 007FEH, 003FFH, 00000H, 003FEH, 003FEH, 00000H);
  38.    INLINE (01FFEH, 003FFH, 0C000H, 00FFEH, 003FFH, 08000H, 0E0FEH, 003F8H);
  39.    INLINE (03800H, 03FFFH, 007FFH, 0E5B0H, 00FFFH, 007FFH, 08000H, 007FFH);
  40.    INLINE (08FFFH, 00000H, 0019FH, 0FFCCH, 00000H, 0011FH, 0FFC4H, 00000H);
  41.    INLINE (0001FH, 0FFC0H, 00000H, 0001EH, 0FBC0H, 00000H, 0001FH, 077C0H);
  42.    INLINE (00000H, 0000FH, 08F80H, 00000H, 0000FH, 0FF80H, 00000H, 0000FH);
  43.    INLINE (00F80H, 00000H, 00007H, 0FF00H, 00000H, 00007H, 0FF00H, 00000H);
  44.    INLINE (00003H, 0FE00H, 00001H, 00002H, 0FA00H, 00030H, 00001H, 0FC00H);
  45.    INLINE (00000H, 00001H, 0FC00H, 007FFH, 00001H, 0FC00H, 00000H, 00001H);
  46.    INLINE (0FC00H, 00000H, 00000H, 0F800H, 00000H, 00000H, 00000H, 00000H);
  47.    (* Plane 3 *)
  48.    INLINE (00000H, 02000H, 00400H, 00000H, 0F800H, 00000H, 00003H, 0FE00H);
  49.    INLINE (00000H, 00007H, 0FF00H, 00000H, 0000FH, 0FF80H, 00000H, 0000FH);
  50.    INLINE (0FF80H, 007C0H, 0000FH, 0FF80H, 00000H, 0000FH, 0FF80H, 00000H);
  51.    INLINE (0000FH, 0FF80H, 0000FH, 0000FH, 0FF80H, 00000H, 0000FH, 0FF80H);
  52.    INLINE (007FFH, 0001FH, 0FFC0H, 00000H, 0003FH, 0FFE0H, 00000H, 0007FH);
  53.    INLINE (0FFF0H, 000FFH, 000FFH, 0FFF8H, 00000H, 001E0H, 0203CH, 007FFH);
  54.    INLINE (009E0H, 0603CH, 08000H, 00FE0H, 0F03FH, 08000H, 01FE0H, 0703FH);
  55.    INLINE (0C0FFH, 00FE0H, 0F03FH, 08000H, 0FC60H, 0F031H, 0FFFFH, 07C00H);
  56.    INLINE (0F001H, 0F000H, 00600H, 0F803H, 00000H, 00300H, 0F806H, 000FFH);
  57.    INLINE (01F80H, 0F80FH, 0C000H, 00FC0H, 0F81FH, 087FFH, 0E0C0H, 07818H);
  58.    INLINE (03800H, 03FE0H, 0703FH, 0E000H, 00FE0H, 0703FH, 080FFH, 007E0H);
  59.    INLINE (0003FH, 00000H, 00180H, 0000CH, 007FFH, 00100H, 00004H, 00000H);
  60.    INLINE (00000H, 00000H, 00000H, 00000H, 00000H, 000FFH, 00000H, 00000H);
  61.    INLINE (00000H, 00000H, 00000H, 007FFH, 00000H, 00000H, 00000H, 00000H);
  62.    INLINE (00000H, 00000H, 00000H, 00000H, 003FFH, 00000H, 00000H, 00000H);
  63.    INLINE (00000H, 00000H, 007FFH, 00000H, 00000H, 00000H, 00000H, 00000H);
  64.    INLINE (00400H, 00000H, 00000H, 007FFH, 00000H, 00000H, 00000H, 00000H);
  65.    INLINE (00000H, 007FFH, 00000H, 00000H, 00000H, 00000H, 00000H, 007C0H);
  66. END GadgetDat;
  67.  
  68.  
  69. (* $E- *)
  70. PROCEDURE GadgetTab;
  71.  
  72. BEGIN
  73.    INLINE (00000H, 00B52H, 00FC9H, 00FFFH, 00FEBH, 00999H, 00831H, 00666H);
  74. END GadgetTab;
  75.  
  76.  
  77. PROCEDURE InitGadget;
  78.  
  79. BEGIN
  80.    WITH Gadget DO
  81.       leftEdge   := 0;
  82.       topEdge    := 0;
  83.       width      :=  37;
  84.       height     :=  48;
  85.       depth      := 3;
  86.       imageData  := ADR (GadgetDat);
  87.       planePick  := 255;
  88.       planeOnOff := 0;
  89.       nextImage  := NIL;
  90.    END; (* WITH *)
  91.    WITH GadgetCol DO
  92.       flags      :=   0;
  93.       type       :=   0;
  94.       count      :=   8;
  95.       colorTable := ADR (GadgetTab);
  96.    END; (* WITH *)
  97. END InitGadget;
  98.  
  99. BEGIN
  100.   InitGadget;
  101. END BrushData.
  102.